﻿Imports SIGI.Common.BE
Imports SIGI.BackEnd.SVC

Public Class UsersController

#Region "<< -SearchByUserName- >>"
    Public Function SearchByUserName(pUserName As String) As UserBE
        Dim wUserBE As UserBE = Nothing

        Try
            wUserBE = UserSVC.SearchByUserName(pUserName)
        Catch ex As Exception
            Throw ex
        End Try

        Return wUserBE
    End Function
#End Region

#Region "<< -BlockUser- >>"
    Public Sub BlockUser(pUserName As String, pBlock As Boolean)
        Try
            UserSVC.BlockUser(pUserName, pBlock)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
#End Region

#Region "<< -SearchByParams- >>"
    Public Function SearchByParams(pUser As UserBE, pNotActiveUsers As Boolean) As List(Of UserBE)
        Return UserSVC.SearchByParams(pUser, pNotActiveUsers)
    End Function
#End Region

#Region "<< -Search- >>"
    Public Function Search(pNotActiveUsers As Boolean) As List(Of UserBE)
        Return UserSVC.Search(pNotActiveUsers)
    End Function
#End Region

#Region "<< -Insert- >>"
    Public Sub Insert(pUser As UserBE)
        UserSVC.Insert(pUser)
    End Sub
#End Region

#Region "<< -Update- >>"
    Public Sub Update(pUser As UserBE)
        UserSVC.Update(pUser)
    End Sub
#End Region

    '#Region "<< -DeleteBatch- >>"
    '    Public Sub DeleteBatch(pUserNameList As List(Of String))
    '        UserSVC.DeleteBatch(pUserNameList)
    '    End Sub
    '#End Region

End Class
